unit INIFileUtils;

interface

uses
  Windows, SysUtils;

function GetInIFileName: String;



implementation




function GetInIFileName: String;
var
  fileName: String;
  Ext: string;
  index: Integer;
begin
  FileName := ExtractFileName( ParamStr(0) );
  Ext := ExtractFileExt( ParamStr(0) );
  index := pos(Ext, FileName);
  if index > 0 then
    FileName := Copy(FileName, 1, index -1);
  FileName := FileName + '.ini';

  Result := ExtractFilePath( ParamStr(0) ) + FileName;
end;


end.
